(ybuffer-list): $alist must be ptr-unmasked at the end of the loop,

because $ptr is modified by ygetptr and we use $ptr immediately at the
beginning.

diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb
index db58eeb8e94c0de896c73a754eb3df2e71bd9104..053d7bd69c3de18ce4e6966989ccd08562fb49fc 100644 (file)
--- a/etc/emacs-buffer.gdb
+++ b/etc/emacs-buffer.gdb
@@ -105,8 +105,6 @@ define ybuffer-list
   while $alist != $qnil
     set $this  = ((struct Lisp_Cons *) $ptr)->car
     set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr
-    ygetptr $alist
-    set $alist = $ptr
 
     # Vbuffer_alist elts are pairs of the form (name . buffer)
     ygetptr $this
@@ -136,6 +134,8 @@ define ybuffer-list
     end
 
     set $i++
+    ygetptr $alist
+    set $alist = $ptr
   end
 end
 document ybuffer-list